perm filename VALVE.ALP[AL,HE] blob
sn#324545 filedate 1978-01-04 generic text, type T, neo UTF8
;Start of program
XPROG
;BLOCK
XMVAR
;
36
;
40
;
42
;
44
;
46
;
50
;
52
;
54
;
56
;
60
;
62
;$B1._T5
64
;$B1._T4
66
;$B1.CAP_TURN_FINAL
70
;$B1.CAP_TURN_INITIAL
72
;$B1.SEATED
74
;$B1._T3
76
;$B1._T2
100
;$B1.NUT_TURN_FINAL
102
;$B1.NUT_TURN_INITIAL
104
;$B1._T1
106
;$B1.BGRASP
110
;$B1.CAP_FINAL
112
;$B1.CAP
114
;$B1.NUT_GRASP_FINAL
116
;$B1.NUT_GRASP
120
;$B1.ORIGIN
122
0
XJUMP
L1
;Condition monitor checker
L2: XPUSH
L3
XCMFORCE
;Stop
XSTOP
4
XCMDONE
;Create condition monitor
L1: XCMMAK
124
3
L2
102004
XJUMP
L4
;Condition monitor checker
L5: XPUSH
L6
XTFRCST
404
XPUSH
L3
XCMFORCE
;Stop
XSTOP
4
XCMDONE
;Create condition monitor
L4: XCMMAK
126
3
L5
102004
XMEXP
;$B1.CAP_TURN_FINAL
70
;$B1._T5
64
0
L7
130
XJUMP
L10
L7: ;first argument
XGTVAL
;$B1.CAP_TURN_FINAL
70
;second argument
;first argument
XGTVAL
;$B1._T5
64
XTINVRT
XTTMUL
XENDCLC
L10: XMEXP
;$B1.CAP_FINAL
112
;$B1._T5
64
0
L11
132
XJUMP
L12
L11: ;first argument
XGTVAL
;$B1.CAP_FINAL
112
;second argument
XGTVAL
;$B1._T5
64
XTTMUL
XENDCLC
L12: XMEXP
;$B1.CAP_TURN_INITIAL
72
;$B1._T4
66
0
L13
134
XJUMP
L14
L13: ;first argument
XGTVAL
;$B1.CAP_TURN_INITIAL
72
;second argument
;first argument
XGTVAL
;$B1._T4
66
XTINVRT
XTTMUL
XENDCLC
L14: XMEXP
;$B1.CAP_FINAL
112
;$B1._T4
66
0
L15
136
XJUMP
L16
L15: ;first argument
XGTVAL
;$B1.CAP_FINAL
112
;second argument
XGTVAL
;$B1._T4
66
XTTMUL
XENDCLC
L16: XMEXP
;$B1.NUT_TURN_FINAL
102
;$B1._T3
76
0
L17
140
XJUMP
L20
L17: ;first argument
XGTVAL
;$B1.NUT_TURN_FINAL
102
;second argument
;first argument
XGTVAL
;$B1._T3
76
XTINVRT
XTTMUL
XENDCLC
L20: XMEXP
;$B1.NUT_GRASP_FINAL
116
;$B1._T3
76
0
L21
142
XJUMP
L22
L21: ;first argument
XGTVAL
;$B1.NUT_GRASP_FINAL
116
;second argument
XGTVAL
;$B1._T3
76
XTTMUL
XENDCLC
L22: XMEXP
;$B1.NUT_TURN_INITIAL
104
;$B1._T2
100
0
L23
144
XJUMP
L24
L23: ;first argument
XGTVAL
;$B1.NUT_TURN_INITIAL
104
;second argument
;first argument
XGTVAL
;$B1._T2
100
XTINVRT
XTTMUL
XENDCLC
L24: XMEXP
;$B1.NUT_GRASP_FINAL
116
;$B1._T2
100
0
L25
146
XJUMP
L26
L25: ;first argument
XGTVAL
;$B1.NUT_GRASP_FINAL
116
;second argument
XGTVAL
;$B1._T2
100
XTTMUL
XENDCLC
L26: XMEXP
;$B1.BGRASP
110
;$B1._T1
106
0
L27
150
XJUMP
L30
L27: ;first argument
XGTVAL
;$B1.BGRASP
110
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XENDCLC
L30: XMEXP
;BARM
14
;$B1._T1
106
0
L31
152
XJUMP
L32
L31: ;first argument
XGTVAL
;BARM
14
;second argument
XGTVAL
;$B1._T1
106
XTTMUL
XENDCLC
L32: ;Print
XPRINT
L33
XPRINT
L34
;Assignment
XPUSH
L35
XCHNGE
;$B1.ORIGIN
122
;Assignment
;first argument
XGTVAL
;$B1.ORIGIN
122
;second argument
XPUSH
L36
XTTMUL
XCHNGE
;$B1.NUT_GRASP
120
;Assignment
;first argument
XGTVAL
;$B1.ORIGIN
122
;second argument
XPUSH
L37
XTTMUL
XCHNGE
;$B1.NUT_GRASP_FINAL
116
;Assignment
;first argument
XGTVAL
;$B1.ORIGIN
122
;second argument
XPUSH
L40
XTTMUL
XCHNGE
;$B1.CAP
114
;Assignment
;first argument
XGTVAL
;$B1.ORIGIN
122
;second argument
XPUSH
L41
XTTMUL
XCHNGE
;$B1.CAP_FINAL
112
;Affixment
;Assignment
XPUSH
L42
XCHNGE
;$B1._T1
106
XMCLC
150
;BARM
14
XMCLC
152
;$B1.BGRASP
110
;End of affixment
;Move
XMOVE
L43
4
;Move
XMOVE
L44
10
;Move
;first argument
;first argument
XGTVAL
;$B1.NUT_GRASP
120
;second argument
XPUSH
L45
XTVADD
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
60
;first argument
XGTVAL
;$B1.NUT_GRASP
120
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
62
XMOVE
L46
4
XGTVAL
;
60
XCHNGE
;BDEPROACH
30
;Center
XCENTER
L51
14
;Assignment
XGTVAL
;$B1.BGRASP
110
XCHNGE
;$B1.NUT_GRASP
120
;Move
;first argument
;first argument
XGTVAL
;$B1.NUT_GRASP_FINAL
116
;second argument
XPUSH
L52
XTVADD
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
56
XMOVE
L53
4
;Affixment
;Assignment
XPUSH
L56
XCHNGE
;$B1._T2
100
XMCLC
144
;$B1.NUT_GRASP_FINAL
116
XMCLC
146
;$B1.NUT_TURN_INITIAL
104
;End of affixment
;Affixment
;Assignment
XPUSH
L57
XCHNGE
;$B1._T3
76
XMCLC
140
;$B1.NUT_GRASP_FINAL
116
XMCLC
142
;$B1.NUT_TURN_FINAL
102
;End of affixment
;Move
;first argument
;first argument
XGTVAL
;$B1.NUT_GRASP_FINAL
116
;second argument
XPUSH
L60
XTVSUB
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
54
;Enable condition monitor
XCMENBL
126
XMOVE
L61
4
;Disable condition monitor
XCMDSBL
126
XPUSH
L6
XCHNGE
;BDEPROACH
30
;Assignment
;first argument
;first argument
XGTVAL
;$B1.NUT_GRASP_FINAL
116
XTORIEN
;second argument
;first argument
XGTVAL
;$B1.BGRASP
110
XTPOS
XTMAKE
XCHNGE
;$B1.NUT_GRASP_FINAL
116
;Move
;first argument
;first argument
XGTVAL
;$B1.NUT_TURN_INITIAL
104
;second argument
XPUSH
L60
XTVSUB
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
52
XPUSH
L6
XTFRCST
404
XPUSH
L64
XCOMPLY
2004
XMOVE
L65
4
XPUSH
L6
XCHNGE
;BDEPROACH
30
;Assignment
XPUSH
L70
XCHNGE
;$B1.SEATED
74
;PAUSE
XPUSH
L71
XPAUSE
;WHILE Loop
L72: ;first argument
XGTVAL
;$B1.SEATED
74
XNOT
XJUMPC
L73
;BLOCK
XMVAR
;
154
0
XJUMP
L74
;Condition monitor checker
L75: XPUSH
L76
XCMFORCE
;BLOCK
;Stop
XSTOP
4
;Assignment
XPUSH
L71
XCHNGE
;$B1.SEATED
74
;Block end cleanup
;End of BLOCK
XCMDONE
;Create condition monitor
L74: XCMMAK
156
3
L75
105004
;Move
;first argument
XGTVAL
;$B1.NUT_TURN_FINAL
102
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
154
XPUSH
L6
XTFRCST
404
;Enable condition monitor
XCMENBL
156
XMOVE
L77
4
;Disable condition monitor
XCMDSBL
156
XPUSH
L6
XCHNGE
;BDEPROACH
30
;Move
XMOVE
L101
10
;IF
;first argument
XGTVAL
;$B1.SEATED
74
XNOT
XJUMPC
L102
;THEN
;BLOCK
XMVAR
;
160
;
162
0
;Move
;first argument
XGTVAL
;$B1.NUT_GRASP_FINAL
116
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
160
;first argument
XGTVAL
;$B1.NUT_TURN_INITIAL
104
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
162
XMOVE
L104
4
XPUSH
L6
XCHNGE
;BDEPROACH
30
;Center
XCENTER
L107
14
;Block end cleanup
XKVAR
;
160
;
162
0
;End of BLOCK
XJUMP
L103
L102: ;ELSE
L103: ;FI
;Block end cleanup
XCMDEST
156
0
XKVAR
;
154
0
;End of BLOCK
XJUMP
L72
L73: ;END WHILE
;Move
;first argument
;first argument
XGTVAL
;$B1.CAP
114
;second argument
XPUSH
L45
XTVADD
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
44
;first argument
XPUSH
L110
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
46
;first argument
XGTVAL
;$B1.CAP
114
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
50
XMOVE
L111
4
XGTVAL
;
44
XCHNGE
;BDEPROACH
30
;Center
XCENTER
L115
14
;Affixment
;Assignment
XPUSH
L116
XCHNGE
;$B1._T4
66
XMCLC
134
;$B1.CAP_FINAL
112
XMCLC
136
;$B1.CAP_TURN_INITIAL
72
;End of affixment
;Affixment
;Assignment
XPUSH
L117
XCHNGE
;$B1._T5
64
XMCLC
130
;$B1.CAP_FINAL
112
XMCLC
132
;$B1.CAP_TURN_FINAL
70
;End of affixment
;Move
;first argument
;first argument
XGTVAL
;$B1.CAP_FINAL
112
;second argument
XPUSH
L120
XTVADD
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
42
XMOVE
L121
4
;Move
;first argument
;first argument
XGTVAL
;$B1.CAP_FINAL
112
;second argument
XPUSH
L124
XTVSUB
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
40
XPUSH
L6
XTFRCST
404
;Enable condition monitor
XCMENBL
124
XMOVE
L125
4
;Disable condition monitor
XCMDSBL
124
XPUSH
L6
XCHNGE
;BDEPROACH
30
;Move
;first argument
;first argument
XGTVAL
;$B1.CAP_TURN_INITIAL
72
;second argument
XPUSH
L130
XTVSUB
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
36
XPUSH
L6
XTFRCST
404
XPUSH
L64
XCOMPLY
2004
XMOVE
L131
4
XPUSH
L6
XCHNGE
;BDEPROACH
30
;Assignment
;first argument
;first argument
XGTVAL
;$B1.CAP_FINAL
112
XTORIEN
;second argument
;first argument
XGTVAL
;$B1.BGRASP
110
XTPOS
XTMAKE
XCHNGE
;$B1.CAP_FINAL
112
;Assignment
XPUSH
L70
XCHNGE
;$B1.SEATED
74
;WHILE Loop
L134: ;first argument
XGTVAL
;$B1.SEATED
74
XNOT
XJUMPC
L135
;BLOCK
XMVAR
;
154
0
XJUMP
L136
;Condition monitor checker
L137: XPUSH
L76
XCMFORCE
;BLOCK
;Stop
XSTOP
4
;Assignment
XPUSH
L71
XCHNGE
;$B1.SEATED
74
;Block end cleanup
;End of BLOCK
XCMDONE
;Create condition monitor
L136: XCMMAK
156
3
L137
105004
;Move
;first argument
XGTVAL
;$B1.CAP_TURN_FINAL
70
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
154
XPUSH
L6
XTFRCST
404
;Enable condition monitor
XCMENBL
156
XMOVE
L140
4
;Disable condition monitor
XCMDSBL
156
XPUSH
L6
XCHNGE
;BDEPROACH
30
;Move
XMOVE
L142
10
;IF
;first argument
XGTVAL
;$B1.SEATED
74
XNOT
XJUMPC
L143
;THEN
;BLOCK
XMVAR
;
160
;
162
0
;Move
;first argument
XGTVAL
;$B1.CAP_FINAL
112
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
160
;first argument
XGTVAL
;$B1.CAP_TURN_INITIAL
72
;second argument
;first argument
XGTVAL
;$B1._T1
106
XTINVRT
XTTMUL
XCHNGE
;
162
XMOVE
L145
4
XPUSH
L6
XCHNGE
;BDEPROACH
30
;Center
XCENTER
L150
14
;Block end cleanup
XKVAR
;
160
;
162
0
;End of BLOCK
XJUMP
L144
L143: ;ELSE
L144: ;FI
;Block end cleanup
XCMDEST
156
0
XKVAR
;
154
0
;End of BLOCK
XJUMP
L134
L135: ;END WHILE
;Move
XMOVE
L151
4
;Block end cleanup
XCMDEST
124
126
0
XKVAR
;
36
;
40
;
42
;
44
;
46
;
50
;
52
;
54
;
56
;
60
;
62
;$B1._T5
64
;$B1._T4
66
;$B1.CAP_TURN_FINAL
70
;$B1.CAP_TURN_INITIAL
72
;$B1.SEATED
74
;$B1._T3
76
;$B1._T2
100
;$B1.NUT_TURN_FINAL
102
;$B1.NUT_TURN_INITIAL
104
;$B1._T1
106
;$B1.BGRASP
110
;$B1.CAP_FINAL
112
;$B1.CAP
114
;$B1.NUT_GRASP_FINAL
116
;$B1.NUT_GRASP
120
;$B1.ORIGIN
122
0
;End of BLOCK
XENDP
;End of program